home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-01
/
flilib.zip
/
FLISRC.ZIP
/
FSAME.ASM
< prev
next >
Wrap
Assembly Source File
|
1989-11-10
|
394b
|
30 lines
_TEXT SEGMENT BYTE PUBLIC 'CODE'
ASSUME CS: _TEXT
public _i86_wsame
;i86_wsame(d, count)
; find out how many (16 bit) words in a row are the same
_i86_wsame PROC far
push bp
mov bp,sp
push di
cld
les di,[bp+4+2]
mov cx,[bp+8+2]
mov ax,es:[di]
inc cx
repe scasw
mov ax,[bp+8+2]
sub ax,cx
pop di
pop bp
ret
_i86_wsame ENDP
_TEXT ENDS
END